#!/usr/bin/perl
use LWP::Simple;
use XML::Simple;

use warnings;
use strict;
use Encode;

sub obtener_enlaces {
    my $url = shift;
    my $pagina = LWP::Simple::get($url) || die "No se puede descargar $url";
    $pagina =~ /<.*encoding="(\S+)"\?>/g;
    my $codificacion = $1;
    $pagina = decode($codificacion, $pagina);
    my $xml = XML::Simple::XMLin($pagina);
    my $items = $xml->{channel}->{item};
    my @items = @{$items};
    #my @enlaces
    foreach my $item (@items){
        #push @enlaces, $item->{link};
        print encode("utf8", "Titulo: $item->{title}\n");
        print encode("utf8", "Fecha: $item->{pubDate}\n");
    }
    #return @enlaces;
}

obtener_enlaces $ARGV[0] || 'http://www.elpais.com/rss/feed.html?feedId=1022';
